﻿Imports Microsoft.VisualBasic

Public Class RolesToUsers

#Region "Constants"
    Protected Const _rtuID As String = "rtuID"
    Protected Const _RoleID As String = "Role"
    Protected Const _UserID As String = "User"

#End Region
#Region "Private"
    Private Shared intrtu As Integer = 0
    Private Shared strRole As String = String.Empty
    Private Shared strUser As String = String.Empty
#End Region
#Region "Public"
    Public Property intrtuID() As Integer
        Get
            Return intrtu
        End Get
        Set(ByVal value As Integer)
            intUserID = value
        End Set
    End Property
    Public Property User() As String
        Get
            Return strUser
        End Get
        Set(ByVal value As String)
            strUser = value
        End Set
    End Property
#End Region
    Private _intrtuID As Integer
    Private intRoleID As Integer
    Private intUserID As Integer

    Public Property rtuID() As Integer
        Get
            Return intrtu
        End Get
        Set(value As Integer)
            intrtu = value
        End Set
    End Property
    Public Property RoleID() As Integer
        Get
            Return intRoleID
        End Get
        Set(value As Integer)

        End Set
    End Property
    Public Property UserID() As Integer
        Get
            Return intUserID
        End Get
        Set(value As Integer)
            intUserID = value
        End Set
    End Property
End Class
